home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / smashout.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  929 b   |  15 lines
  1. 1  REM ************************************************************************
  2. 2  REM *                                                                      *
  3. 3  REM *                            *SMASHOUT*                                *
  4. 4  REM *                         *By Tim McClarren*                           *
  5. 5  REM *                             (C) 1984                                 *
  6. 6  REM *     Feel free to give out this program to anyone, but lines 1-10     *
  7. 7  REM * MUST remain unchanged.  Written January 28, 1984.  Have Fun!         *
  8. 8  REM *                                                                      *
  9. 9  REM ************************************************************************
  10. 10  CLS
  11. 11  DEF SEG=&HB000:POKE &H0,&H20:POKE &H8000,&H20
  12. 12  IF PEEK (&H8000)=&H20 AND PEEK(&H0)<>&H20 THEN DEF SEG=0:POKE &H410(PEEK(&H410)AND &HCF) OR &H10:J=&HB800:GOTO 20
  13. 13  IF PEEK (&H0)=&H20 AND PEEK(&H8000)<>&H20 THEN DEF SEG=0:POKE &H410,PEEK(&H410) OR &H30:J=&HB000:GOTO 20
  14. 14  LOCATE 5,20:PRIN
  15.